100 PRINT: OPEN 4,4,4: PRINT#4,CHR$(27);CHR$(65);CHR$(8)
110 S=8192: GR$=CHR$(27)+CHR$(75)+CHR$(200)+CHR$(0)
120 FOR X=0 TO 321 STEP 8: PRINT#4,GR$;
130 FOR Y=7680 TO 0 STEP -320: FOR Z=7 TO 0 STEP -1
140 PRINT#4,CHR$(PEEK(S+X+Y+Z));: NEXT: NEXT: PRINT#4: NEXT